Első 10 darab páros szám kiíratása előltesztelő (while) ciklussal (Elso10ParosSzam.pas)
program Elso10ParosSzam;
uses crt;
var i,n,a:integer;
BEGIN
n:=10;
i:=1;
a:=2;
a = kiírandó érték, ami jelen esetben 2, mivel ez az első pozitív páros szám
while(i<=n) do begin
writeln(a);
a:=a+2;
Megnöveljük az a változó értékét 2-vel, így a következő páros számot kapjuk.
i:=i+1;
end;
END.
Első n darab páros szám kiíratása előltesztelő (while) ciklussal (ElsoNParosSzam.pas)
 |
uses crt;
var i,a,n:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=2;
while(i<=n) do begin
writeln(a);
a:=a+2;
i:=i+1;
end;
END.
Első n darab páros szám kiíratása for ciklussal (ElsoNParosSzamV1.pas)
program ElsoNParosSzamV1;
uses crt;
var i,a,n:integer;
BEGIN
write('n:=');
readln(n);
a:=2;
for i:=1 to n do begin
writeln(a);
a:=a+2;
end;
END.
Első n darab páros szám kiíratása hátultesztelő (repeat - until) ciklussal (ElsoNParosSzamV2.pas)
program ElsoNParosSzamV2;
uses crt;
var i,a,n:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=2;
repeat
writeln(a);
a:=a+2;
i:=i+1;
until(i>n);
END.